perm filename PAX.FAI[TMP,LCS]1 blob sn#128759 filedate 1974-11-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		ENTRY PAC,UNPAC
C00003 ENDMK
CāŠ—;
	ENTRY PAC,UNPAC
PAC:	0		;CALL PAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	HRR 2,@1	;SIZE IS 12 BITS
	LSHC 2,-14
	SOJ 1,
	HRR 2,@1
	LSHC 2,-14
	SOJ 1,
	HRR 2,@1
	LSHC 2,-14
	MOVEM 3,@0(16)
	JRA 16,2(16)
UNPAC:	0		;CALL UNPAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	MOVE 2,@0(16)
	LSHC 2,-14
	ASH 3,-30
	MOVEM 3,@1
	SOJ 1,
	LSHC 2,-14
	ASH 3,-30
	MOVEM 3,@1
	SOJ 1,
	LSHC 2,-14
	ASH 3,-30
	MOVEM 3,@1
	JRA 16,2(16)
	END